home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_037_19xx_-_de_Side_B.d64 / disk ganz loesch (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  50 lines
  1. 1000 input"[147][204]aufwerksnummer der 1541/1571    8[157][157][157]";a$:dn=val(a$):
  2. 1010 ifdn<8ordn>30then1000
  3. 1020 print"[147][196]ieses [208]rogramm loescht alle [196]aten auf
  4. 1030 [153]"der eingelegten str$isk, sodass kein
  5. 1040 print"einziger magnetischer [210]ichtungswechsel
  6. 1050 [153]"verbleibt. str$ies ist wichtig beim
  7. 1060 print"[194]eschreiben der [196]isk mit einem 80-[211]pur
  8. 1070 [153]"((NULL)len-) (NULL)aufwerk und anschliessendem
  9. 1080 print"[204]esen der [196]isk mit einem 40-[211]pur [204]auf-
  10. 1090 [153]"werk, wie die 1541/1571. str$ie (NULL)purbreite
  11. 1100 print"des 80-[212]rack-[204]w ist nur halb so gross
  12. 1110 [153]"wie bei 40 (NULL)racks, sodass der breitere
  13. 1120 print"40-[212]rack [203]opf auch die falschen seit-
  14. 1130 [153]"lich liegenden magnetischen (NULL)ichtungs-
  15. 1140 print"wechsel lesen wuerde.
  16. 1150 [153]"peekeide (NULL)eiten muessen getrennt geloescht
  17. 1160 print"werden.
  18. 1170 [159]15,dn,15,"u0>m0
  19. 1180 reada:ifa>=0thenprint#15,"m-w"chr$(i)chr$(4)chr$(1)chr$(a);
  20. 1190 ifa>=0thenpoke49152+i,a:i=i+1:goto1180
  21. 1200 print"<[212]aste>":poke198,0:wait198,1:geta$
  22. 1210 print"[147][198]reeware von
  23. 1220 [153]"(NULL)ear (NULL)etter (NULL)uantity
  24. 1230 print"[202]ochen [193]dler
  25. 1240 [153]"left$aeldestr.11
  26. 1250 print"[196]-74912 [203]irchardt
  27. 1260 [153]"fuer
  28. 1270 print"[210]ockford-[198][196] [211]erie
  29. 1280 [153]"atnlex (NULL)(NULL)(NULL)
  30. 1290 print"[193]mselweg 1
  31. 1300 [153]"str$-85293 (NULL)eichertshausen
  32. 1310 print"[199]eben [211]ie 'zerstoeren' ein, wenn [211]ie
  33. 1320 [153]"sicher sind, dass alle str$aten auf der
  34. 1330 print"eingelegten [196]isk geloescht werden koen- nen
  35. 1340 [153]"!!str$eletes all str$atas on str$isk!!
  36. 1350 inputa$:ifa$<>"zerstoeren"thenstop:goto1310
  37. 1360 print#15,"m-e"chr$(0)chr$(4);
  38. 1370 close15:open15,dn,15
  39. 1380 print"[206]ochmal? (j/n)":wait198,1:geta$:ifa$<>"j"anda$<>"n"then1380
  40. 1390 ifa$="j"then1310
  41. 1400 rem--------------------------------
  42. 1410 data173,0,28,9,8,141,0,28,165,34,208,4,169,18,133,34,169,41,133,6,169,128
  43. 1420 data133,0,165,0,48,252,169,1,133,6,169,128,133,0,165,0,48,252,169,79,141
  44. 1430 data255,4,173,0,28,41,252,141,0,28,120,169,255,141,3,28,173,12,28,41,31
  45. 1440 data9,192,141,12,28,169,0,141,1,28,162,170,160,255,136,208,253,202,208
  46. 1450 data250,173,12,28,9,224,141,12,28,169,0,141,3,28,136,208,253,174,0,28,232
  47. 1460 data138,41,3,133,75,173,0,28,41,252,5,75,73,8,141,0,28,162,48,136,208,253
  48. 1470 data202,208,250,206,255,4,16,175,169,41,133,34,173,0,28,41,247,141,0,28
  49. 1480 data96,-1
  50.